またうごかねええええええええええええええ(´;ω;`)
ツイート時に再ログインを促されるページのHTMLが返ってきます。
あとID/パスワードは自分で定義して下さい
またうごかねええええええええええええええ(´;ω;`)
ツイート時に再ログインを促されるページのHTMLが返ってきます。
あとID/パスワードは自分で定義して下さい
; ; MobileWEBからツイートする ; //必要なモジュールをインクルード #include "hspinets.as" //IDとパスワード定義 id="" pw="" //変数の定義 valuebuf="" valuebuf2="" buf="" token="" logined="" chdir dir_cur //ログインページからトークン取得 netinit neturl "https://mobile.twitter.com/session" netdlname "session.html" netload "" netterm //トークンを取得する notesel a noteload "session.html" nkfcnv buf,a,"W" notesel buf split buf,"value=\"",dst,valuebuf2 split valuebuf2,"\"",token,dst mes token //ログインする netinit neturl "https://mobile.twitter.com/session" loginpost = "authenticity_token="+token+"&username="+id+"&password="+pw+"" netrequest_post "",loginpost repeat netexec res if res > 0 : break if res < 0 : dialog"失敗" :end await 5 loop netgetv logined netterm notesel logined notesave "logined.html" split logined,"force=",dst if stat-1>=1:mes "ログインに失敗" split logined,"Sign in information is not correct",dst if stat-1>=1:mes "ログインに失敗" //ツイートする netinit neturl "https://mobile.twitter.com/home" netdlname "main.html" netload "" notesel index noteload "main.html" split index,"<input name=\"authenticity_token\" type=\"hidden\" value=\"",dst,value2 split value2,"\"",token2,dst mes token2 if token!token2:dialog"不明なエラー" tweetpost = "authenticity_token="+token+"&tweet[text]=TEST" netrequest_post "",tweetpost repeat netexec res if res > 0 : break if res < 0 : dialog"失敗" :end await 5 loop netgetv posted netterm dialog posted stop